home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / Drag.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  14.2 KB  |  386 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; 
  3. ;     File:        Drag.p
  4. ; 
  5. ;     Contains:    External Interface to Drag Manager
  6. ; 
  7. ;     Copyright:    © 1992-1993 by Apple Computer, Inc., all rights reserved.
  8. ; 
  9.  
  10. ; $IFC UNDEFINED UsingIncludes
  11. ; $SETC UsingIncludes := 0
  12. ; $ENDC
  13.  
  14. ; $IFC NOT UsingIncludes
  15.  
  16. ; $ENDC
  17.  
  18. ; $IFC UNDEFINED UsingDrag
  19. ; $SETC UsingDrag := 1
  20.  
  21. ; $I+
  22. ; $SETC DragIncludes := UsingIncludes
  23. ; $SETC UsingIncludes := 1
  24. ; $IFC UNDEFINED UsingAppleEvents
  25.  
  26. (require-interface 'APPLEEVENTS); $I $$Shell(PInterfaces)AppleEvents.p
  27. ; $ENDC
  28. ; $IFC UNDEFINED UsingTextEdit
  29.  
  30. (require-interface 'TEXTEDIT)   ; $I $$Shell(PInterfaces)TextEdit.p
  31. ; $ENDC
  32. ; $SETC UsingIncludes := DragIncludes
  33.  
  34. ;  Gestalt Selector and Response Constants (will move to GestaltEqu.p) 
  35.  
  36. (defconstant $gestaltDragMgrAttr :|drag|);  Drag Manager attributes 
  37. (defconstant $gestaltDragMgrPresent 0);  Drag Manager is present 
  38.  
  39. (defconstant $gestaltTEAttr :|teat|);  TextEdit attributes 
  40. (defconstant $gestaltTEHasGetHiliteRgn 0);  TextEdit has TEGetHiliteRgn 
  41.  
  42. ;  Flavor Flags 
  43.  
  44. (defconstant $flavorSenderOnly #X1);  flavor is available to sender only 
  45. (defconstant $flavorSenderTranslated #X2);  flavor is translated by sender 
  46. (defconstant $flavorNotSaved #X4);  flavor should not be saved 
  47. (defconstant $flavorSystemTranslated #X100);  flavor is translated by system 
  48.  
  49. (def-mactype :FLAVORFLAGS (find-mactype :SIGNED-LONG))
  50.  
  51. ;  Drag Attributes 
  52.  
  53. (defconstant $dragHasLeftSenderWindow #X1);  drag has left the source window since TrackDrag 
  54. (defconstant $dragInsideSenderApplication #X2);  drag is occurring within the source application 
  55. (defconstant $dragInsideSenderWindow #X4);  drag is occurring within the source window 
  56.  
  57. (def-mactype :DRAGATTRIBUTES (find-mactype :SIGNED-LONG))
  58.  
  59. ;  Special Flavor Types 
  60.  
  61. (defconstant $flavorTypeHFS :|hfs |);  flavor type for HFS data 
  62. (defconstant $flavorTypePromiseHFS :|phfs|);  flavor type for promised HFS data 
  63. (defconstant $flavorTypeDirectory :|diry|);  flavor type for AOCE directory 
  64.  
  65. ;  Drag Tracking Handler Messages 
  66.  
  67. (defconstant $dragTrackingEnterHandler 1);  drag has entered handler 
  68. (defconstant $dragTrackingEnterWindow 2);  drag has entered window 
  69. (defconstant $dragTrackingInWindow 3);  drag is moving within window 
  70. (defconstant $dragTrackingLeaveWindow 4);  drag has exited window 
  71. (defconstant $dragTrackingLeaveHandler 5);  drag has exited handler 
  72.  
  73. (def-mactype :DRAGTRACKINGMESSAGE (find-mactype :SIGNED-INTEGER))
  74.  
  75. ;  Drag Drawing Procedure Messages 
  76.  
  77. (defconstant $dragRegionBegin 1);  initialize drawing 
  78. (defconstant $dragRegionDraw 2) ;  draw drag feedback 
  79. (defconstant $dragRegionHide 3) ;  hide drag feedback 
  80. (defconstant $dragRegionIdle 4) ;  drag feedback idle time 
  81. (defconstant $dragRegionEnd 5)  ;  end of drawing 
  82.  
  83. (def-mactype :DRAGREGIONMESSAGE (find-mactype :SIGNED-INTEGER))
  84.  
  85. ;  Zoom Acceleration 
  86.  
  87. (defconstant $zoomNoAcceleration 0);  use linear interpolation 
  88. (defconstant $zoomAccelerate 1) ;  ramp up step size 
  89. (defconstant $zoomDecelerate 2) ;  ramp down step size 
  90.  
  91. (def-mactype :ZOOMACCELERATION (find-mactype :SIGNED-INTEGER))
  92.  
  93. ;  Drag Manager Data Types 
  94.  
  95. (def-mactype :DRAGREFERENCE (find-mactype :SIGNED-LONG))
  96. (def-mactype :ITEMREFERENCE (find-mactype :SIGNED-LONG))
  97.  
  98. (def-mactype :FLAVORTYPE (find-mactype :OSTYPE))
  99.  
  100. ;  Result Codes - (will move to Errors.p) 
  101.  
  102. (defconstant $badDragRefErr -1850);  unknown drag reference 
  103. (defconstant $badDragItemErr -1851);  unknown drag item reference 
  104. (defconstant $badDragFlavorErr -1852);  unknown flavor type 
  105. (defconstant $duplicateFlavorErr -1853);  flavor type already exists 
  106. (defconstant $cantGetFlavorErr -1854);  error while trying to get flavor data 
  107. (defconstant $duplicateHandlerErr -1855);  handler already exists 
  108. (defconstant $handlerNotFoundErr -1856);  handler not found 
  109. (defconstant $dragNotAcceptedErr -1857);  drag was not accepted by receiver 
  110.  
  111. ;  HFS Flavor 
  112.  
  113. (defrecord HFSFlavor 
  114.    (fileType :OSTYPE)           ;  file type 
  115.    (fileCreator :OSTYPE)        ;  file creator 
  116.    (fdFlags :SIGNED-INTEGER)    ;  Finder flags 
  117.    (fileSpec :FSSPEC)           ;  file system specification 
  118.    )
  119.  
  120. ;  Promise HFS Flavor 
  121.  
  122. (defrecord PromiseHFSFlavor 
  123.    (fileType :OSTYPE)           ;  file type 
  124.    (fileCreator :OSTYPE)        ;  file creator 
  125.    (fdFlags :SIGNED-INTEGER)    ;  Finder flags 
  126.    (promisedFlavor :OSTYPE)     ;  promised flavor containing FSSpec 
  127.    )
  128.  
  129. ;  Application-Defined Drag Handler Routines 
  130.  
  131. (def-mactype :DRAGTRACKINGHANDLER (find-mactype :POINTER));  FUNCTION TrackingHandler    (message : DragTrackingMessage,
  132. ;                                                                              theWindow : WindowPtr,
  133. ;                                                                               handlerRefCon : Ptr,
  134. ;                                                                              theDragRef : DragReference) : OSErr; 
  135. (def-mactype :DRAGRECEIVEHANDLER (find-mactype :POINTER));  FUNCTION ReceiveHandler    (theWindow : WindowPtr,
  136. ;                                                                              handlerRefCon : Ptr,
  137. ;                                                                              theDragRef : DragReference) : OSErr; 
  138.  
  139. ;  Application-Defined Routines 
  140.  
  141. (def-mactype :DRAGSENDDATAPROC (find-mactype :POINTER));  FUNCTION SendDataProc        (theType : FlavorType,
  142. ;                                                                              dragSendRefCon : Ptr,
  143. ;                                                                              theItemRef : ItemReference,
  144. ;                                                                              theDragRef : DragReference) : OSErr; 
  145. (def-mactype :DRAGINPUTPROC (find-mactype :POINTER));  FUNCTION InputProc        (VAR mouse : Point,
  146. ;                                                                              VAR modifiers : INTEGER,
  147. ;                                                                              dragInputRefCon : Ptr,
  148. ;                                                                              theDragRef : DragReference) : OSErr; 
  149. (def-mactype :DRAGDRAWINGPROC (find-mactype :POINTER));  FUNCTION DrawingProc        (message : DragRegionMessage,
  150. ;                                                                              showRegion : RgnHandle,
  151. ;                                                                              showOrigin : Point,
  152. ;                                                                              hideRegion : RgnHandle,
  153. ;                                                                              hideOrigin : Point,
  154. ;                                                                              dragDrawingRefCon : Ptr,
  155. ;                                                                              theDragRef : DragReference) : OSErr; 
  156.  
  157. ;  Drag Manager Routines 
  158.  
  159. ;  Installing and Removing Drag Handlers 
  160.  
  161.  
  162. (deftrap _installtrackinghandler ((trackinghandler :pointer) (thewindow :windowptr) (handlerrefcon :pointer))
  163.    (:stack :signed-integer)
  164.    (:stack-trap #xABED :d0 1 trackinghandler thewindow handlerrefcon))
  165.  
  166.  
  167. (deftrap _installreceivehandler ((receivehandler :pointer) (thewindow :windowptr) (handlerrefcon :pointer))
  168.    (:stack :signed-integer)
  169.    (:stack-trap #xABED :d0 2 receivehandler thewindow handlerrefcon))
  170.  
  171.  
  172. (deftrap _removetrackinghandler ((trackinghandler :pointer) (thewindow :windowptr))
  173.    (:stack :signed-integer)
  174.    (:stack-trap #xABED :d0 3 trackinghandler thewindow))
  175.  
  176.  
  177. (deftrap _removereceivehandler ((receivehandler :pointer) (thewindow :windowptr))
  178.    (:stack :signed-integer)
  179.    (:stack-trap #xABED :d0 4 receivehandler thewindow))
  180.  
  181. ;  Creating and Disposing Drag References 
  182.  
  183.  
  184. (deftrap _newdrag ((thedragref (:pointer :signed-long)))
  185.    (:stack :signed-integer)
  186.    (:stack-trap #xABED :d0 5 thedragref))
  187.  
  188.  
  189. (deftrap _disposedrag ((thedragref :signed-long))
  190.    (:stack :signed-integer)
  191.    (:stack-trap #xABED :d0 6 thedragref))
  192.  
  193. ;  Adding Drag Item Flavors 
  194.  
  195.  
  196. (deftrap _adddragitemflavor ((thedragref :signed-long) (theitemref :signed-long) (thetype :ostype) (dataptr :pointer) (datasize :size) (theflags :signed-long))
  197.    (:stack :signed-integer)
  198.    (:stack-trap #xABED :d0 7 thedragref theitemref thetype dataptr datasize theflags))
  199.  
  200.  
  201. (deftrap _addhfsflavor ((thedragref :signed-long) (theitemref :signed-long) (filespec :fsspec) (theflags :signed-long))
  202.    (:stack :signed-integer)
  203.    (:stack-trap #xABED :d0 8 thedragref theitemref filespec theflags))
  204.  
  205.  
  206. (deftrap _setdragitemflavordata ((thedragref :signed-long) (theitemref :signed-long) (thetype :ostype) (dataptr :pointer) (datasize :size) (dataoffset :signed-long))
  207.    (:stack :signed-integer)
  208.    (:stack-trap #xABED :d0 9 thedragref theitemref thetype dataptr datasize dataoffset))
  209.  
  210. ;  Providing Drag Callback Procedures 
  211.  
  212.  
  213. (deftrap _setdragsendproc ((thedragref :signed-long) (sendproc :pointer) (dragsendrefcon :pointer))
  214.    (:stack :signed-integer)
  215.    (:stack-trap #xABED :d0 10 thedragref sendproc dragsendrefcon))
  216.  
  217.  
  218. (deftrap _setdraginputproc ((thedragref :signed-long) (inputproc :pointer) (draginputrefcon :pointer))
  219.    (:stack :signed-integer)
  220.    (:stack-trap #xABED :d0 11 thedragref inputproc draginputrefcon))
  221.  
  222.  
  223. (deftrap _setdragdrawingproc ((thedragref :signed-long) (drawingproc :pointer) (dragdrawingrefcon :pointer))
  224.    (:stack :signed-integer)
  225.    (:stack-trap #xABED :d0 12 thedragref drawingproc dragdrawingrefcon))
  226.  
  227. ;  Performing a Drag 
  228.  
  229.  
  230. (deftrap _trackdrag ((thedragref :signed-long) (theevent :eventrecord) (theregion :rgnhandle))
  231.    (:stack :signed-integer)
  232.    (:stack-trap #xABED :d0 13 thedragref theevent theregion))
  233.  
  234. ;  Getting Drag Item Information 
  235.  
  236.  
  237. (deftrap _countdragitems ((thedragref :signed-long) (numitems (:pointer :signed-integer)))
  238.    (:stack :signed-integer)
  239.    (:stack-trap #xABED :d0 14 thedragref numitems))
  240.  
  241.  
  242. (deftrap _getdragitemreferencenumber ((thedragref :signed-long) (index :signed-integer) (theitemref (:pointer :signed-long)))
  243.    (:stack :signed-integer)
  244.    (:stack-trap #xABED :d0 15 thedragref index theitemref))
  245.  
  246.  
  247. (deftrap _countdragitemflavors ((thedragref :signed-long) (theitemref :signed-long) (numflavors (:pointer :signed-integer)))
  248.    (:stack :signed-integer)
  249.    (:stack-trap #xABED :d0 16 thedragref theitemref numflavors))
  250.  
  251.  
  252. (deftrap _getflavortype ((thedragref :signed-long) (theitemref :signed-long) (index :signed-integer) (thetype (:pointer :ostype)))
  253.    (:stack :signed-integer)
  254.    (:stack-trap #xABED :d0 17 thedragref theitemref index thetype))
  255.  
  256.  
  257. (deftrap _getflavorflags ((thedragref :signed-long) (theitemref :signed-long) (thetype :ostype) (theflags (:pointer :signed-long)))
  258.    (:stack :signed-integer)
  259.    (:stack-trap #xABED :d0 18 thedragref theitemref thetype theflags))
  260.  
  261.  
  262. (deftrap _getflavordatasize ((thedragref :signed-long) (theitemref :signed-long) (thetype :ostype) (datasize (:pointer :size)))
  263.    (:stack :signed-integer)
  264.    (:stack-trap #xABED :d0 19 thedragref theitemref thetype datasize))
  265.  
  266.  
  267. (deftrap _getflavordata ((thedragref :signed-long) (theitemref :signed-long) (thetype :ostype) (dataptr :pointer) (datasize (:pointer :size)) (dataoffset :signed-long))
  268.    (:stack :signed-integer)
  269.    (:stack-trap #xABED :d0 20 thedragref theitemref thetype dataptr datasize dataoffset))
  270.  
  271.  
  272. (deftrap _getdragitembounds ((thedragref :signed-long) (theitemref :signed-long) (itembounds (:pointer :rect)))
  273.    (:stack :signed-integer)
  274.    (:stack-trap #xABED :d0 21 thedragref theitemref itembounds))
  275.  
  276.  
  277. (deftrap _setdragitembounds ((thedragref :signed-long) (theitemref :signed-long) (itembounds :rect))
  278.    (:stack :signed-integer)
  279.    (:stack-trap #xABED :d0 22 thedragref theitemref itembounds))
  280.  
  281.  
  282. (deftrap _getdroplocation ((thedragref :signed-long) (droplocation (:pointer :aedesc)))
  283.    (:stack :signed-integer)
  284.    (:stack-trap #xABED :d0 23 thedragref droplocation))
  285.  
  286.  
  287. (deftrap _setdroplocation ((thedragref :signed-long) (droplocation :aedesc))
  288.    (:stack :signed-integer)
  289.    (:stack-trap #xABED :d0 24 thedragref droplocation))
  290.  
  291. ;  Getting Information About a Drag 
  292.  
  293.  
  294. (deftrap _getdragattributes ((thedragref :signed-long) (flags (:pointer :signed-long)))
  295.    (:stack :signed-integer)
  296.    (:stack-trap #xABED :d0 25 thedragref flags))
  297.  
  298.  
  299. (deftrap _getdragmouse ((thedragref :signed-long) (mouse (:pointer :point)) (pinnedmouse (:pointer :point)))
  300.    (:stack :signed-integer)
  301.    (:stack-trap #xABED :d0 26 thedragref mouse pinnedmouse))
  302.  
  303.  
  304. (deftrap _setdragmouse ((thedragref :signed-long) (pinnedmouse :point))
  305.    (:stack :signed-integer)
  306.    (:stack-trap #xABED :d0 27 thedragref pinnedmouse))
  307.  
  308.  
  309. (deftrap _getdragorigin ((thedragref :signed-long) (initialmouse (:pointer :point)))
  310.    (:stack :signed-integer)
  311.    (:stack-trap #xABED :d0 28 thedragref initialmouse))
  312.  
  313.  
  314. (deftrap _getdragmodifiers ((thedragref :signed-long) (modifiers (:pointer :signed-integer)) (mousedownmodifiers (:pointer :signed-integer)) (mouseupmodifiers (:pointer :signed-integer)))
  315.    (:stack :signed-integer)
  316.    (:stack-trap #xABED :d0 29 thedragref modifiers mousedownmodifiers mouseupmodifiers))
  317.  
  318. ;  Drag Highlighting 
  319.  
  320.  
  321. (deftrap _showdraghilite ((thedragref :signed-long) (hiliteframe :rgnhandle) (inside :boolean))
  322.    (:stack :signed-integer)
  323.    (:stack-trap #xABED :d0 30 thedragref hiliteframe inside))
  324.  
  325.  
  326. (deftrap _hidedraghilite ((thedragref :signed-long))
  327.    (:stack :signed-integer)
  328.    (:stack-trap #xABED :d0 31 thedragref))
  329.  
  330.  
  331. (deftrap _dragprescroll ((thedragref :signed-long) (dh :signed-integer) (dv :signed-integer))
  332.    (:stack :signed-integer)
  333.    (:stack-trap #xABED :d0 32 thedragref dh dv))
  334.  
  335.  
  336. (deftrap _dragpostscroll ((thedragref :signed-long))
  337.    (:stack :signed-integer)
  338.    (:stack-trap #xABED :d0 33 thedragref))
  339.  
  340.  
  341. (deftrap _updatedraghilite ((thedragref :signed-long) (updatergn :rgnhandle))
  342.    (:stack :signed-integer)
  343.    (:stack-trap #xABED :d0 34 thedragref updatergn))
  344.  
  345. ;  Drag Manager Utilities 
  346.  
  347.  
  348. (deftrap _waitmousemoved ((initialmouse :point))
  349.    (:stack :boolean)
  350.    (:stack-trap #xABED :d0 35 initialmouse))
  351.  
  352.  
  353. (deftrap _zoomrects ((fromrect :rect) (torect :rect) (zoomsteps :signed-integer) (acceleration :signed-integer))
  354.    (:stack :signed-integer)
  355.    (:stack-trap #xABED :d0 36 fromrect torect zoomsteps acceleration))
  356.  
  357.  
  358. (deftrap _zoomregion ((region :rgnhandle) (zoomdistance :point) (zoomsteps :signed-integer) (acceleration :signed-integer))
  359.    (:stack :signed-integer)
  360.    (:stack-trap #xABED :d0 37 region zoomdistance zoomsteps acceleration))
  361.  
  362. ;  Will move to TextEdit.p 
  363.  
  364. (deftrap _tegethilitergn ((region :rgnhandle) (hte :tehandle))
  365.    (:stack :signed-integer)
  366.    (:stack-trap #xA83D region hte (15 :signed-integer)))
  367.  
  368. ; $ENDC                         ;  UsingDrag 
  369.  
  370. ; $IFC NOT UsingIncludes
  371.  
  372. ; $ENDC
  373.  
  374. (export '($DRAGNOTACCEPTEDERR $HANDLERNOTFOUNDERR $DUPLICATEHANDLERERR
  375.           $CANTGETFLAVORERR $DUPLICATEFLAVORERR $BADDRAGFLAVORERR
  376.           $BADDRAGITEMERR $BADDRAGREFERR $ZOOMDECELERATE $ZOOMACCELERATE
  377.           $ZOOMNOACCELERATION $DRAGREGIONEND $DRAGREGIONIDLE $DRAGREGIONHIDE
  378.           $DRAGREGIONDRAW $DRAGREGIONBEGIN $DRAGTRACKINGLEAVEHANDLER
  379.           $DRAGTRACKINGLEAVEWINDOW $DRAGTRACKINGINWINDOW
  380.           $DRAGTRACKINGENTERWINDOW $DRAGTRACKINGENTERHANDLER
  381.           $FLAVORTYPEDIRECTORY $FLAVORTYPEPROMISEHFS $FLAVORTYPEHFS
  382.           $DRAGINSIDESENDERWINDOW $DRAGINSIDESENDERAPPLICATION
  383.           $DRAGHASLEFTSENDERWINDOW $FLAVORSYSTEMTRANSLATED $FLAVORNOTSAVED
  384.           $FLAVORSENDERTRANSLATED $FLAVORSENDERONLY $GESTALTTEHASGETHILITERGN
  385.           $GESTALTTEATTR $GESTALTDRAGMGRPRESENT $GESTALTDRAGMGRATTR))
  386. (provide-interface 'Drag)